This Graph here shows off the total rounds played of each player

ggplot(pstats, aes(y=TotalRoundsPlayed,x=Player_Name, fill=Player_Name)) + geom_bar(stat = "Identity") + geom_text(aes(label=TotalRoundsPlayed), vjust=1.6, color="white", size=3.5) + ggtitle("Total Rounds Played") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

overallPStats %>% filter(stat=="Rounds") %>% ggplot(aes(x=role,y=overall,fill=role))+geom_bar(stat = "Identity")  + geom_text(aes(label=overall), vjust=1.6, color="black", size=3.5) + ggtitle("Rounds played as each role")

overallPStats %>% filter(stat=="Rounds" & role!="Innocent") %>% ggplot(aes(x="",y=overall/4715,fill=role)) + 
  geom_bar(stat="identity", width=1,color="white") +
  coord_polar("y", start=0) +
  theme_void()

avgWin %>% ggplot(aes(x=role,y=winPercent,fill=role))+geom_bar(stat = "Identity")+geom_text(aes(label=sprintf("%0.2f", round(winPercent, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=TraitorWins, y=TraitorRounds, fill=Player_Name)) + geom_point() + ggtitle("Traitor Rounds vs. Traitor wins") +
  geom_label_repel(aes(label = Player_Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

pstats %>% group_by(Player_Name,TraitorRounds,TraitorWins) %>% 
  summarise(winPercent=TraitorWins/TraitorRounds) %>%
  arrange(desc(winPercent))
## `summarise()` has grouped output by 'Player_Name', 'TraitorRounds'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, TraitorRounds [10]
##    Player_Name     TraitorRounds TraitorWins winPercent
##    <fct>                   <dbl>       <dbl>      <dbl>
##  1 nuzzels                   145          89      0.614
##  2 silentscout9909           128          58      0.453
##  3 Amazingbro17               94          37      0.394
##  4 King Nuggets               92          32      0.348
##  5 FunLiberal                 91          31      0.341
##  6 ghostNINJA-72              83          24      0.289
##  7 MrBoy                      87          24      0.276
##  8 Jeff_the_Shark             89          24      0.270
##  9 TARTARI                    24           6      0.25 
## 10 TheMathGeek_314            62          13      0.210
pstats %>% group_by(Player_Name) %>% summarise(percentPlayed=TraitorRounds/TotalRoundsPlayed) %>% 
  ggplot(aes(y=percentPlayed,x=Player_Name,fill=Player_Name)) + geom_bar(stat = "Identity") + ggtitle("Percent of rounds played as traitor") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(percentPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=InnocentWins, y=InnocentRounds, fill=Player_Name)) + geom_point() + ggtitle("Innocent Rounds vs. Innocent wins") +
  geom_label_repel(aes(label = Player_Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

pstats %>% group_by(Player_Name,InnocentRounds,InnocentWins) %>% 
  summarise(winPercent=InnocentWins/InnocentRounds) %>%
  arrange(desc(winPercent))
## `summarise()` has grouped output by 'Player_Name', 'InnocentRounds'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, InnocentRounds [10]
##    Player_Name     InnocentRounds InnocentWins winPercent
##    <fct>                    <dbl>        <dbl>      <dbl>
##  1 silentscout9909            286          187      0.654
##  2 Amazingbro17               258          166      0.643
##  3 nuzzels                    316          201      0.636
##  4 Jeff_the_Shark             265          168      0.634
##  5 FunLiberal                 265          165      0.623
##  6 TARTARI                     67           40      0.597
##  7 MrBoy                      254          151      0.594
##  8 King Nuggets               259          153      0.591
##  9 ghostNINJA-72              213          123      0.577
## 10 TheMathGeek_314            191          108      0.565
pstats %>% group_by(Player_Name) %>% summarise(percentPlayed=InnocentRounds/TotalRoundsPlayed) %>% 
  ggplot(aes(y=percentPlayed,x=Player_Name,fill=Player_Name)) + geom_bar(stat = "Identity") + ggtitle("Percent of rounds played as innocent") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(percentPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=DetectiveWins, y=DetectiveRounds, fill=Player_Name)) + geom_point() + ggtitle("Detective Rounds vs. Detective wins") +
  geom_label_repel(aes(label = Player_Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

pstats %>% group_by(Player_Name,DetectiveRounds,DetectiveWins) %>% 
  summarise(winPercent=DetectiveWins/DetectiveRounds) %>%
  arrange(desc(winPercent))
## `summarise()` has grouped output by 'Player_Name', 'DetectiveRounds'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, DetectiveRounds [10]
##    Player_Name     DetectiveRounds DetectiveWins winPercent
##    <fct>                     <dbl>         <dbl>      <dbl>
##  1 nuzzels                      88            62      0.705
##  2 King Nuggets                 59            38      0.644
##  3 ghostNINJA-72                49            30      0.612
##  4 Amazingbro17                 74            45      0.608
##  5 TARTARI                      12             7      0.583
##  6 MrBoy                        69            40      0.580
##  7 TheMathGeek_314              42            24      0.571
##  8 silentscout9909              73            41      0.562
##  9 Jeff_the_Shark               66            36      0.545
## 10 FunLiberal                   61            29      0.475
pstats %>% group_by(Player_Name) %>% summarise(percentPlayed=DetectiveRounds/TotalRoundsPlayed) %>% 
  ggplot(aes(y=percentPlayed,x=Player_Name,fill=Player_Name)) + geom_bar(stat = "Identity") + ggtitle("Percent of rounds played as detective") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(percentPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=Zombiewins, y=ZombieRounds, fill=Player_Name)) + geom_point() + ggtitle("Zombie Rounds vs. Zombie wins") +
  geom_label_repel(aes(label = Player_Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

pstats %>% group_by(Player_Name,Zombiewins,ZombieRounds) %>% 
  summarise(winPercent=Zombiewins/ZombieRounds) %>%
  arrange(desc(winPercent))
## `summarise()` has grouped output by 'Player_Name', 'Zombiewins'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, Zombiewins [10]
##    Player_Name     Zombiewins ZombieRounds winPercent
##    <fct>                <dbl>        <dbl>      <dbl>
##  1 nuzzels                 50           64      0.781
##  2 MrBoy                   18           29      0.621
##  3 TheMathGeek_314         14           23      0.609
##  4 Jeff_the_Shark          22           37      0.595
##  5 Amazingbro17            16           29      0.552
##  6 ghostNINJA-72           11           20      0.55 
##  7 FunLiberal              17           31      0.548
##  8 silentscout9909         25           46      0.543
##  9 King Nuggets            14           29      0.483
## 10 TARTARI                  2            6      0.333
pstats %>% group_by(Player_Name) %>% summarise(percentPlayed=ZombieRounds/TotalRoundsPlayed) %>% 
  ggplot(aes(y=percentPlayed,x=Player_Name,fill=Player_Name)) + geom_bar(stat = "Identity") + ggtitle("Percent of rounds played as zombie") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(percentPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=HypnotistWins, y=HypnotistRounds, fill=Player_Name)) + geom_point() + ggtitle("Hypnotist Rounds vs. Hypnotist wins") +
  geom_label_repel(aes(label = Player_Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

pstats %>% group_by(Player_Name,HypnotistWins,HypnotistRounds) %>% 
  summarise(winPercent=HypnotistWins/HypnotistRounds) %>%
  arrange(desc(winPercent))
## `summarise()` has grouped output by 'Player_Name', 'HypnotistWins'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, HypnotistWins [10]
##    Player_Name     HypnotistWins HypnotistRounds winPercent
##    <fct>                   <dbl>           <dbl>      <dbl>
##  1 Amazingbro17                9              11      0.818
##  2 nuzzels                    16              21      0.762
##  3 ghostNINJA-72               5              10      0.5  
##  4 silentscout9909             4               9      0.444
##  5 MrBoy                       6              14      0.429
##  6 Jeff_the_Shark              6              20      0.3  
##  7 TheMathGeek_314             2               7      0.286
##  8 FunLiberal                  3              12      0.25 
##  9 King Nuggets                3              13      0.231
## 10 TARTARI                     1               9      0.111
pstats %>% group_by(Player_Name) %>% summarise(percentPlayed=HypnotistRounds/TotalRoundsPlayed) %>% 
  ggplot(aes(y=percentPlayed,x=Player_Name,fill=Player_Name)) + geom_bar(stat = "Identity") + ggtitle("Percent of rounds played as hypnotist") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(percentPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=Player_Name, y=CrookedCop, fill=Player_Name)) + geom_bar(stat="identity") + geom_text(aes(label=CrookedCop), vjust=1.6, color="white", size=3.5) + ggtitle("Amount of Innocents killed as detective") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

pstats %>% group_by(Player_Name, DetectiveRounds, CrookedCop) %>% 
  summarise(Crookedeness=CrookedCop/DetectiveRounds) %>%
  arrange(desc(Crookedeness))
## `summarise()` has grouped output by 'Player_Name', 'DetectiveRounds'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, DetectiveRounds [10]
##    Player_Name     DetectiveRounds CrookedCop Crookedeness
##    <fct>                     <dbl>      <dbl>        <dbl>
##  1 ghostNINJA-72                49         31        0.633
##  2 TARTARI                      12          6        0.5  
##  3 King Nuggets                 59         29        0.492
##  4 FunLiberal                   61         23        0.377
##  5 TheMathGeek_314              42         11        0.262
##  6 Amazingbro17                 74         18        0.243
##  7 Jeff_the_Shark               66         13        0.197
##  8 MrBoy                        69         13        0.188
##  9 silentscout9909              73          9        0.123
## 10 nuzzels                      88         10        0.114
ggplot(pstats,aes(x=Player_Name, y=TriggerHappyInnocent, fill=Player_Name)) + geom_bar(stat="identity") + geom_text(aes(label=TriggerHappyInnocent), vjust=1.6, color="white", size=3.5) + ggtitle("Amount of Innocents killed as an Innocent") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

pstats %>% group_by(Player_Name, InnocentRounds, TriggerHappyInnocent) %>% 
  summarise(Shootyness=TriggerHappyInnocent/InnocentRounds) %>%
  arrange(desc(Shootyness))
## `summarise()` has grouped output by 'Player_Name', 'InnocentRounds'. You can override using the `.groups` argument.
## # A tibble: 10 × 4
## # Groups:   Player_Name, InnocentRounds [10]
##    Player_Name     InnocentRounds TriggerHappyInnocent Shootyness
##    <fct>                    <dbl>                <dbl>      <dbl>
##  1 ghostNINJA-72              213                   83     0.390 
##  2 King Nuggets               259                   71     0.274 
##  3 MrBoy                      254                   62     0.244 
##  4 FunLiberal                 265                   60     0.226 
##  5 nuzzels                    316                   56     0.177 
##  6 silentscout9909            286                   50     0.175 
##  7 TARTARI                     67                   11     0.164 
##  8 Jeff_the_Shark             265                   34     0.128 
##  9 Amazingbro17               258                   33     0.128 
## 10 TheMathGeek_314            191                   19     0.0995
ggplot(pstats,aes(x=Player_Name,y=KilledFirst,fill=Player_Name)) + geom_bar(stat = "Identity")  + geom_text(aes(label=KilledFirst), vjust=1.6, color="Blue", size=3.5) + ggtitle("Amount of times killed first") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

ggplot(pstats, aes(x=Player_Name, y=KilledFirst/TotalRoundsPlayed, fill=Player_Name)) + 
  geom_bar(stat="identity") + ggtitle("Percentage of times killed first") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))+geom_text(aes(label=sprintf("%0.2f", round(KilledFirst/TotalRoundsPlayed, digits = 2))), vjust=1.6, color="black", size=3.5)

ggplot(pstats,aes(x=Player_Name,y=TotalFallDamage, fill=Player_Name)) + geom_bar(stat = "Identity")  + geom_text(aes(label=TotalFallDamage), vjust=1.6, color="Blue", size=3.5) + ggtitle("People least safe near ledges") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

dequipClean %>% group_by(stat) %>% summarise(overallTimesBought = sum(count)) %>%
  ggplot(aes(x=stat,y=overallTimesBought)) + geom_bar(stat="Identity") + geom_text(aes(label=overallTimesBought), vjust=1.6, color="Red", size=2.5) + ggtitle("Times each detective equipment was bought") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

dequipClean %>% group_by(stat) %>% summarise(percentBought=sum(count)/1172) %>% arrange(desc(percentBought))
## # A tibble: 35 × 2
##    stat           percentBought
##    <chr>                  <dbl>
##  1 Gold_Deagle           0.153 
##  2 Body_Armor            0.119 
##  3 T-Suitcase            0.0811
##  4 PHD                   0.0708
##  5 Radar                 0.0597
##  6 Command_Prompt        0.0546
##  7 Speed_Cola            0.0546
##  8 DoubleTap             0.0495
##  9 Mystery_Box           0.0418
## 10 Stamin-up             0.0341
## # … with 25 more rows
dequipClean %>% filter(count>0) %>% group_by(Player_Name, stat) %>% summarise(equipBought=n()) %>% 
  ggplot(aes(x=Player_Name,y=equipBought, fill=Player_Name)) + geom_bar(stat = "Identity")  +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5)) + 
  ggtitle("Number of different detective equipment bought")
## `summarise()` has grouped output by 'Player_Name'. You can override using the `.groups` argument.

dequipClean  %>% filter(Player_Name=="Amazingbro17") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name  stat           count
##   <fct>        <chr>          <dbl>
## 1 Amazingbro17 Gold_Deagle       42
## 2 Amazingbro17 Command_Prompt    23
## 3 Amazingbro17 PHD               16
## 4 Amazingbro17 T-Suitcase        12
## 5 Amazingbro17 Body_Armor        12
dequipClean  %>% filter(Player_Name=="FunLiberal") %>% 
  slice_max(count,n=5)
## # A tibble: 6 × 3
##   Player_Name stat          count
##   <fct>       <chr>         <dbl>
## 1 FunLiberal  Gold_Deagle      21
## 2 FunLiberal  Handcuffs        11
## 3 FunLiberal  Radar             9
## 4 FunLiberal  Stungun           9
## 5 FunLiberal  Star_Platinum     7
## 6 FunLiberal  PHD               7
dequipClean  %>% filter(Player_Name=="ghostNINJA-72") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name   stat           count
##   <fct>         <chr>          <dbl>
## 1 ghostNINJA-72 Gold_Deagle       28
## 2 ghostNINJA-72 Command_Prompt    19
## 3 ghostNINJA-72 Juggernaut        15
## 4 ghostNINJA-72 T-Suitcase        13
## 5 ghostNINJA-72 Random_Tester     10
dequipClean  %>% filter(Player_Name=="Jeff_the_Shark") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name    stat        count
##   <fct>          <chr>       <dbl>
## 1 Jeff_the_Shark Gold_Deagle    32
## 2 Jeff_the_Shark Body_Armor     29
## 3 Jeff_the_Shark Radar          19
## 4 Jeff_the_Shark Speed_Cola     17
## 5 Jeff_the_Shark DoubleTap       7
dequipClean  %>% filter(Player_Name=="King Nuggets") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name  stat           count
##   <fct>        <chr>          <dbl>
## 1 King Nuggets Gold_Deagle       13
## 2 King Nuggets Bruh_Bunker       10
## 3 King Nuggets Speed_Cola        10
## 4 King Nuggets PHD                9
## 5 King Nuggets Command_Prompt     9
dequipClean  %>% filter(Player_Name=="MrBoy") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name stat       count
##   <fct>       <chr>      <dbl>
## 1 MrBoy       T-Suitcase    39
## 2 MrBoy       Body_Armor    37
## 3 MrBoy       Fortnite      14
## 4 MrBoy       Minecraft     13
## 5 MrBoy       Radar         12
dequipClean  %>% filter(Player_Name=="nuzzels") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name stat          count
##   <fct>       <chr>         <dbl>
## 1 nuzzels     Mystery_Box      36
## 2 nuzzels     PHD              20
## 3 nuzzels     DoubleTap        12
## 4 nuzzels     Speed_Cola       12
## 5 nuzzels     Random_Tester    12
dequipClean  %>% filter(Player_Name=="silentscout9909") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name     stat           count
##   <fct>           <chr>          <dbl>
## 1 silentscout9909 Body_Armor        43
## 2 silentscout9909 Gold_Deagle       14
## 3 silentscout9909 PHD               13
## 4 silentscout9909 Command_Prompt    12
## 5 silentscout9909 Random_Tester     10
dequipClean  %>% filter(Player_Name=="TARTARI") %>% 
  slice_max(count,n=5)
## # A tibble: 7 × 3
##   Player_Name stat          count
##   <fct>       <chr>         <dbl>
## 1 TARTARI     Star_Platinum     4
## 2 TARTARI     PHD               3
## 3 TARTARI     Body_Armor        3
## 4 TARTARI     Stamin-up         3
## 5 TARTARI     Radar             1
## 6 TARTARI     Random_Tester     1
## 7 TARTARI     Juggernog         1
dequipClean  %>% filter(Player_Name=="TheMathGeek_314") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name     stat           count
##   <fct>           <chr>          <dbl>
## 1 TheMathGeek_314 Gold_Deagle       15
## 2 TheMathGeek_314 T-Suitcase        12
## 3 TheMathGeek_314 Minecraft          8
## 4 TheMathGeek_314 Star_Platinum      6
## 5 TheMathGeek_314 Oblivion_Magic     3
dequipClean %>% ggplot(aes(x=Player_Name,y=count, fill=Player_Name)) + geom_bar(stat = "Identity") + facet_wrap(~stat, ncol=5, scales = "free_y") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

tequipClean %>% group_by(stat) %>% summarise(overallTimesBought = sum(count)) %>%
  ggplot(aes(x=stat,y=overallTimesBought)) + geom_bar(stat="Identity") + geom_text(aes(label=overallTimesBought), vjust=1.6, color="Red", size=2.5) + ggtitle("Times each traitor equipment was bought") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

tequipClean %>% group_by(stat) %>% summarise(percentBought=sum(count)/1172) %>% arrange(desc(percentBought))
## # A tibble: 72 × 2
##    stat         percentBought
##    <chr>                <dbl>
##  1 Body_Armor          0.374 
##  2 Radar               0.192 
##  3 PHD                 0.116 
##  4 Eagleflight         0.110 
##  5 wallhack            0.104 
##  6 Speed_Cola          0.0990
##  7 DoubleTap           0.0973
##  8 Antlion             0.0887
##  9 Katana              0.0785
## 10 Silenced_AWP        0.0776
## # … with 62 more rows
tequipClean %>% filter(count>0) %>% group_by(Player_Name, stat) %>% summarise(equipBought=n()) %>% 
  ggplot(aes(x=Player_Name,y=equipBought, fill=Player_Name)) + geom_bar(stat = "Identity")  +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5)) + 
  ggtitle("Number of different traitor equipment bought")
## `summarise()` has grouped output by 'Player_Name'. You can override using the `.groups` argument.

tequipClean  %>% filter(Player_Name=="Amazingbro17") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name  stat         count
##   <fct>        <chr>        <dbl>
## 1 Amazingbro17 Antlion         62
## 2 Amazingbro17 Silenced_AWP    36
## 3 Amazingbro17 Body_Armor      35
## 4 Amazingbro17 Deagle_V2       29
## 5 Amazingbro17 PHD             24
tequipClean  %>% filter(Player_Name=="FunLiberal") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name stat       count
##   <fct>       <chr>      <dbl>
## 1 FunLiberal  Radar         34
## 2 FunLiberal  Body_Armor    32
## 3 FunLiberal  PHD           14
## 4 FunLiberal  Speed_Cola    14
## 5 FunLiberal  Stamin-Up      9
tequipClean  %>% filter(Player_Name=="ghostNINJA-72") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name   stat        count
##   <fct>         <chr>       <dbl>
## 1 ghostNINJA-72 Eagleflight    59
## 2 ghostNINJA-72 wallhack       58
## 3 ghostNINJA-72 Body_Armor     34
## 4 ghostNINJA-72 Katana         16
## 5 ghostNINJA-72 PHD            15
tequipClean  %>% filter(Player_Name=="Jeff_the_Shark") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name    stat       count
##   <fct>          <chr>      <dbl>
## 1 Jeff_the_Shark Body_Armor    80
## 2 Jeff_the_Shark Radar         60
## 3 Jeff_the_Shark Katana        53
## 4 Jeff_the_Shark Speed_Cola    25
## 5 Jeff_the_Shark AK-47         16
tequipClean  %>% filter(Player_Name=="King Nuggets") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name  stat       count
##   <fct>        <chr>      <dbl>
## 1 King Nuggets wallhack      46
## 2 King Nuggets Radar         27
## 3 King Nuggets Body_Armor    20
## 4 King Nuggets DoubleTap     20
## 5 King Nuggets PHD           14
tequipClean  %>% filter(Player_Name=="MrBoy") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name stat              count
##   <fct>       <chr>             <dbl>
## 1 MrBoy       Body_Armor           83
## 2 MrBoy       Silenced_AWP         38
## 3 MrBoy       Radar                36
## 4 MrBoy       Holy_Hand_Grenade    24
## 5 MrBoy       AK-47                21
tequipClean  %>% filter(Player_Name=="nuzzels") %>% 
  slice_max(count,n=5)
## # A tibble: 5 × 3
##   Player_Name stat        count
##   <fct>       <chr>       <dbl>
## 1 nuzzels     SATM           41
## 2 nuzzels     Body_Armor     28
## 3 nuzzels     Dead_Ringer    25
## 4 nuzzels     Radar          23
## 5 nuzzels     Martyrdom      19
tequipClean  %>% filter(Player_Name=="silentscout9909") %>% 
  slice_max(count,n=5)
## # A tibble: 6 × 3
##   Player_Name     stat        count
##   <fct>           <chr>       <dbl>
## 1 silentscout9909 Body_Armor    114
## 2 silentscout9909 Flesh_wound    66
## 3 silentscout9909 Eagleflight    36
## 4 silentscout9909 DoubleTap      27
## 5 silentscout9909 PHD            23
## 6 silentscout9909 Stamin-Up      23
tequipClean  %>% filter(Player_Name=="TARTARI") %>% 
  slice_max(count,n=5)
## # A tibble: 8 × 3
##   Player_Name stat            count
##   <fct>       <chr>           <dbl>
## 1 TARTARI     Body_Armor         12
## 2 TARTARI     PHD                 8
## 3 TARTARI     Antlion             5
## 4 TARTARI     wallhack            4
## 5 TARTARI     Speed_Cola          3
## 6 TARTARI     RPG                 3
## 7 TARTARI     Juggernog           3
## 8 TARTARI     Silenced_Pistol     3
tequipClean  %>% filter(Player_Name=="TheMathGeek_314") %>% 
  slice_max(count,n=5)
## # A tibble: 6 × 3
##   Player_Name     stat        count
##   <fct>           <chr>       <dbl>
## 1 TheMathGeek_314 Eagleflight    17
## 2 TheMathGeek_314 PHD             9
## 3 TheMathGeek_314 DoubleTap       8
## 4 TheMathGeek_314 Speed_Cola      7
## 5 TheMathGeek_314 Moto_Moto       7
## 6 TheMathGeek_314 Donconnon       7
tequipClean %>% ggplot(aes(x=Player_Name,y=count, fill=Player_Name)) + geom_bar(stat = "Identity") + facet_wrap(~stat, ncol=6, scales = "free_y") +
  theme(axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))